home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
bbsutil
/
125adev.zip
/
USERINFO.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-08-08
|
4KB
|
82 lines
defint a-z
TYPE usertype
lasttime as string * 5 'format 22:22 (24 hour)
waiting as string * 1 'Y=mail waiting, N=no mail
lockedout as STRING * 1 'locked out? Y/N
userlen AS STRING * 1 'ascii char for length of name
username AS STRING * 40 'actual name padded to 40 spcs
streetlen AS STRING * 1 'char for length of userstreet
userstreet AS STRING * 40 'street padded to 40 spcs
fromlen AS STRING * 1 'char for userfrom
userfrom AS STRING * 40 'from padded to 40 spcs
passlen AS STRING * 1 'char for len of userpass
userpass AS STRING * 20 'user password
phonelen AS STRING * 1 'char for len of userphone
userphone AS STRING * 15 'phone
worklen AS STRING * 1 '
userwork AS STRING * 15 'alt phone #
birthlen AS STRING * 1 'byte/byte/word
userbirth AS STRING * 9 'birthday in config: 00-00-00
lastlen AS STRING * 1 'julian
userlast AS STRING * 9 'last on in config: 00-00-00
timeleft AS integer 'time left for today
timeson AS integer 'times user called
useruploads AS integer 'uploads
userdownloads AS integer 'downloads
firstlen AS STRING * 1 '
userfirst AS STRING * 9 'first logon date
subscriber AS STRING * 1 'subscriber? Y/N
sublen AS STRING * 1 'char for length of usersubdate
usersubdate AS STRING * 9 'sub end date
lastdownarea AS integer 'last file area
lastuploadarea AS integer 'last upload area(not used now)
lastmsgarea AS integer 'last msg area
usersec AS integer 'user sec level
kdownloaded AS integer 'k downloaded
kuploaded AS integer 'kbytes uploaded
expert AS STRING * 1 'expert mode?
graphlen AS STRING * 1 'char for len of usergraph
usergraph AS STRING * 15 'graphics mode
screenlen AS integer 'length of user screen
memolen AS STRING * 1 'char for len of usermemo
usermemo AS STRING * 40 'sysop's memo for user
baudlen AS STRING * 1 'char for len of userbaud
userbaud AS STRING * 10 'last baudrate user used
complen AS STRING * 1 'make one byte
usercomp AS STRING * 20 'computer using
userdropped AS integer 'drop times
chattimes AS integer 'times chat req w/ sysop
disconnect AS integer 'times disconnected by sysop
protnumb AS STRING * 2 'protocol using
newlen AS STRING * 1 'len for newcheck
newcheck AS STRING * 8 'last check for new files
defavail as string * 1 'avail for multinode chat?
reserved AS STRING * 39 'reserved for future use
END TYPE
declare function pdqexist%(st$)
declare function pdqvali%(st$)
dim us as usertype
print "User Record to read?"
line input a$
av=pdqvali(a$)
userf$="userfile.dat"
if not pdqexist(userf$) then print userf$" not found, exiting.":end 1
open userf$ for random shared as 1 len=393
get #1, av, us
close 1
print "User Name: "left$(us.username,asc(us.userlen))
print "Calling From: "left$(us.userfrom,asc(us.fromlen))
print "Security Level: "str$(us.usersec)
end 0